perm filename MAKOVA.NEW[1,JRA] blob sn#024541 filedate 1973-02-14 generic text, type T, neo UTF8

(DEFPROP MAKVAR 
 (LAMBDA(X)
  (PROG (Z)
	(SETQ Z (ASSOC X VARTBL))
	(COND (Z (RETURN (CDR Z))))
	(SETQ VARTBL (CONS (CONS X (SETQ VARNO (ADD1 VARNO))) VARTBL))
	(RETURN VARNO))) 
EXPR)

(DEFPROP MAKOVAR 
 (LAMBDA(X)
  (PROG (X1 *NOPOINT Z N M)
	(SETQ *NOPOINT T)
	(SETQ OUTVAR NIL)
	(SETQ N 1)
	(SETQ X1 X)
   D    (SETQ OUTVAR (CONS (CONS N (CAR X1)) OUTVAR))
	(SETQ X1 (CDR X1))
	(SETQ N (ADD1 N))
	(COND (X1 (GO D)))
   B    (SETQ Z (EXPLODE (CAR X)))
	(COND ((NUMBERP (CAR (LAST Z))) (GO A)))
	(SETQ M 1)
   C    (SETQ OUTVAR (CONS (CONS N (READLIST (APPEND Z (LIST M)))) OUTVAR))
	(COND ((LESSP M 11) (SETQ N (ADD1 N)) (SETQ M (ADD1 M)) (GO C)))
   A    (SETQ X (CDR X))
	(COND (X (SETQ N (ADD1 N)) (GO B)))
	(SETQ OUTVAR (REVERSE OUTVAR))
	(RETURN OUTVAR))) 
EXPR)